﻿Namespace CompoentModel

    Public Class PropertyChangedEventArgs(Of T)
        Inherits EventArgs

        Public Property ChangedProperty() As IChangedPropertyInf(Of T)

        Public Sub New(Optional ByVal propertyName As String = "Null", Optional ByVal cpi As IChangedPropertyInf(Of T) = Nothing)
            Me.ChangedProperty = If(cpi, New ChangedPropertyInf(Of T)(propertyName))
        End Sub

    End Class

End Namespace